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PROGRAM TITLE: SHORT FORM FLOATING POINT OUTPUT 



PURPOSE 

To rapidly print out a block of floating point data. 

DESCRIPTION 

This subroutine converts a specified block of internally stored floating 
point binary numbers into floating point decimal format and types them out. 
Four significant decimal digits of the normalized fraction are typed. The 
location of the block, length of the block, and number of outputs per line 
are specified by the user. 



USAGE 

This program is a subroutine, and thus must be "called" by the users' pro- 
gram. The calling sequence, given below, must start in the left-half in- 
struction of the word, 

+ TRA 06100 + PZE XXXXO 
+ PZE 00YY0 + PZE 00ZZ0 
Return 

where XXXX is origin ( initial location) of block to be output 
OOYY is number (octal) of numbers in block 
OOZZ is number (octal) of numbers to be typed on a line 

The format for each output number is as follows: 

Sign of number, four digits of fraction, sign of exponent, one digit 
exponent • 

The sign of a positive exponent will be suppressed with a space. 
Examples: - 362.5 will appear as -3625 3 and + 0,03625 will appear as 
+3625 - 1, A carriage return will occur prior to but not following each 
block typeout. 



RESTRICTIONS 

The numbers must be in normalized floating point format, 

10 
The magnitude of a number must be no greater than 10 or, unless it is 

identically zero, less than 10" • 

The Tab-Carriage Return Switch on the typewriter must be in the Carriage 
Return position. 
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TITLE: SHORT FORM FLOATING POINT .OUTPUT 

0610 - O763 



06l0.0 
■+ SAX 

+ CTV 
+ CLA 
-I- CLA 
+ CLA 
+ CLA 
+ CLA 
+ TYC 



7760.O 
0620.0 

0000.0 
0000.0 
0000.0 
0000.0 

777^-0 

0010.0 



0620.0 

-r STA 

* STA 
+ XAR 
+ STA 

-r-STO 
+ CTL 
+ STA 
+ TYC 

O63O.O 

'+ CTV 

•+ SUB 

+ ARS 

* CLA 
+ ST 
+ CLA 
+ STO 
+ CTV 

o64o.o 

-I- CFL 

+ 
+ 
+ 

+ 



TMi 
TRA 
FST 
SUB 
TMI 
XAR 
TMI 



O65O.O 
+ CTV 
FST 
ADD 
FCA 
XAR 
TPL 
FST 
CTL 



+ 
+ 

+ 

+ 



7771.1 
O632.I 
0000.0 

7764.1 
7762.0 

0630.0 

7767.1 
0033.0 



0610.0 
7775.0 
0000.0 
7773.0 
7773.0 
770.0 
7767.0 

Ob^O.O 



0630.0 

7772.1 

7773.0 

7770.0 

7771.1 

075^.0 

0000.0 

0670.0 



0660.0 

7776.0 

777^.0 
7776.0 

0000.0 

7760.1 
7776.0 
0710.0 



+ 

+ 



+ 
+ 



+ 
+ 
+ 

+ 
+ 



+ 
+ 
+ 

+ 
+ 
+ 



+ 

+ 
+ 

+ 
+ 



CTL 
TRA 
CLA 
CLA 
CLA 
CLA 
STO 
TRA 



+ ADD 
+ FCA 
+ STA 
+ ARS 
+ CFL 
+ XAR 
+ TYC 
+ TRA 



CLA 
STO 
TZE 
SUB 
TZE 
ADD 
CFV 
FCA 



TZE 
TYC 
TYC 
CLA 
TZE 
FCA 
TZE 
TRA 



XAR 
CLA 
STO 
FDV 
TZE 
XAR 
ARS 
TRA 



0610.0 
7770.0 
0001.0 
0001.0 
000^.0 
0001.0 
7773.0 
7765.0 

O762.O 
0000. 

7763.1 

0024.0 
06l0.0 
0000.0 
0010.0 

7767.0 



7772.0 
7772.0 

73^6.0 

7775.0 
7775.0 

0762.0 

0610.0 

5216.0 



070^.0 
0021.0 

0003.0. 
0661.0 
075^.0 
7770.0 

0670.0 
0763.0 



0000.0 

7774.0 
7775.0 
7772.0 
7765.1 

0000.0 
0000.0 

7760..0 
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0660.0 



+ 
+ 



SUB 

CLA. 

TZE 

CLA 

CLA 

CLA 

CTL 

CLA 



+ 
+ 



067O oO 

+ CTL 
CTV 

fst 

SUB 
FCA 
XAR 
-!- TMI 

+ CTL 

0700.0 
FDV 
CLA 
STO 
CTL 
CLA 
CTL 
FSB 
FSB 



+ 

+ 
+ 

-r 

+ 



0710.0 

+ FCA 
XAR 
TMI 
FDV 
CLA 
:+ STO 
+ CTL 
+ CTL 

0720.0 



+ 
+ 



+ 

+ 
+ 

+ 



XAR 
STA 
ARS 
MPY 
ADD 
•XAR 
CTL 
CLA 



7766.0 
0000.0 
0000.0 
0000.0 
0000.0 
0000.0 

3^4. 
cooo.o 



0670.0 
0660.0 

7776.0 
7774.0 
7776.0 

0000.0 

7761.1 
0700.0 



7772.0 

777*5.0 

7775.0 
0710.0 
0706.0 
0750.0 

6102.0 

7556. 1 



0666.0 

0000.0 

7767.0 
7772.0 
7775.0 
7775.0 

0720.0 
0720.0 



0000.0 

7762.1 

0000.0 

7767.0 

0665.0 

0000.0 

07^0.0 
0600.0 



+ TRA 

- CLA 

- CLA 

- CLA 

- CLA 
■- CLA 
+ FST 

- CLA 



+ 
+ 
+ 
+ 
+ 



+ 

+ 

+ 
+ 
+ 



+ 
+ 
+ 

+ 
+ 
+ 



+ 
+ 
+ 
+ 



TRA 
XAR 
CLA 
STO 
FMP 
TZE 
XAR 
TRA 



FST 
ADD 
ARS 
TRA 
TYC 
TRA 
DSL 
DIS 



FAD 
TZE 
XAR 
FST 
ADD 
FCA 
TRA 
TRA 



ALS 
XAR 
ARS 
ALS 
STO 



+ MPY 
+ TRA 
- CLA 



7761*. 1 
001.7.0 

0000.0 
0002.0 
0000.1 
0000.0 

3071 .0 
0007.0 



7761 .0 

0000.0 

7775.0 
7775.0 
7772.0 

7761.1 
0000.0 

7760.0 



7776.0 

7774.0 
0000.0 
7760.0 
7760.0 
7760.O 
4113.0 
6102.0 

7776.1 
7767.0 
0000.0 

7776.0 
7774.0 
7776.0 
7760.0 
7760.1 



0001 .0 
0000.0 
0000.0 

ooo4.o 

7771.0 
7767.0 

7760.0 

0005.0 



07^0.0 



ADD 
+ STO 
-J- MPY 
+ ALS 
+ XAR 
+ ADD 
-r CTL 
+• CLA 



07^0.0 

+ ADD 
TYW 
ALS 
TMI 
ADD 
TYW 
SUB 
CLA 



+ 
+ 



+ 



0750.0 

+ CLA 
.'+ CTL 
- DSL 
CTL 
CLA 
CLA 
TRA 
TYC 



+ 
+ 

+ 



7771.0 

7771 .0 

7767.0 
0004.0 

cooo.o 

7771 .0 
0740.0 

0000.0 



7767.0 

7771.1 
0043.0 

7770.0 

7766.0 

7771.1 

6000.0 

0002.1 



7762.0 
0630.0 

4l02.0 

0750.0 

7771 .0 

0707.0 
7760.0 
7767.0 



0760.0 

- PTW 7556. 1 
+ CTL O75O.O 
+ CLA 0000.0 
+ CTL O65O.O 



+ 

+ 

+ 

+ 
+ 
+ 



+ 
+ 
+ 
+ 
+ 



+ 

+ 

+ 
+ 

+ 
+ 

+ 



ALS- 
XAR 
ADD 
STO 
MPY 
ALS 
TRA 
CLA 



STO 
CLA 
TZE 
TYC 
STO 
TRA 
CLA 
PNC 



TYC 
TRA 
DSL 
TRA 
TMI 
TYC 
CLA 
TRA 



0004.0 
0000.0 

7771 .0 

7771.0 
7767.0 
0027.0 
7760.0 
0005.0 



7771.0 
7775.0 
7763.1 
0004.0 

77T1 .0 
0761 .0 

0000.0 
0000.0 



7764.0 
7760.0 
4102.0 
7764.0 
7766. 1 
7767.0 
O760.O 
7760.0 



- PTW 7542.0 
+ TRA 7760.O 

- CLA 0002.0 
+ TRA 7760.O 



